home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 05 (1989-05)(MicroSPARC)(Side A)[a].zip / Nibble Volume 10, No. 05 (1989-05)(MicroSPARC)(Side A)[a].po / ROUNDIT.bas < prev    next >
BASIC Source File  |  1996-12-24  |  448b  |  2 lines
  1. 10 X$ =  STR$( INT(X *100 +.5)/100):L =  LEN(X$):M =  LEN( STR$( INT(X))):X$ =  CHR$(48 *(M$ = "0")) +X$ + CHR$(48 *(L -M = 1)) + CHR$(46 *(L -M = 0)) + CHR$(48 *(L -M = 0)) + CHR$(48 *(L -M = 0  OR L -M = 2  AND X =  >.99)):X$ = X$ + CHR$(0): FOR I = 1 TO  LEN(X$): ON  MID$ (X$,I,1) =  CHR$(0) GOTO 20:Y$ = Y$ + MID$ (X$,I,1)
  2. 20  NEXT :X$ = Y$:Y$ = "":X$ =  RIGHT$("         " +X$,12): RETURN : REM ROUNDIT ROUNDS/FORMATS INPUT<X>  OUTPUT <XX.00>